home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvidoc / dvidoc.sty < prev    next >
Text File  |  1994-08-08  |  5KB  |  205 lines

  1. % This was sort of cribbed from lfonts.tex.
  2. % I have no idea how close to correctness it is.
  3. % However, it has worked on some files at 10pt.
  4. %
  5. % Unfortunately, I think that there is some kind of rounding
  6. % problem in dvidoc itself.
  7. %
  8. % John Pavel, March 1987
  9. % Extended by Rainer M. Sch"opf (RmS) <Schoepf@sc.ZIB-Berlin.de>
  10. %
  11.  
  12. \typeout{Document style option `dvidoc', as of 14 Mar 1994.}
  13.  
  14. \ifx\selectfont\undefined
  15.   \def\rm{\protect\pdoc}
  16.   \def\it{\protect\pdoc}
  17.   \def\bf{\protect\pdoc}
  18.   \def\sl{\protect\pdoc}
  19.   \def\sf{\protect\pdoc}
  20.   \def\sc{\protect\pdoc}
  21.   \def\tt{\protect\pdoc}
  22.   \newfam\docfam
  23.   \def\pdoc{\@getfont\pdoc\docfam\@xpt{doc}}
  24.   \xpt
  25.  
  26.   \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  27.      #2\setbox\strutbox\hbox{\vrule \@height.7\baselineskip
  28.         \@depth.3\baselineskip \@width\z@}%
  29.      \baselineskip\baselinestretch\baselineskip
  30.      \normalbaselineskip\baselineskip}
  31.  
  32. \else
  33. \ifx\DeclareFontShape\undefined
  34.   \new@fontshape{doc}{m}{n}{%
  35.      <5>doc at5pt%
  36.      <6>doc at6pt%
  37.      <7>doc at7pt%
  38.      <8>doc at8pt%
  39.      <9>doc at9pt%
  40.      <10>doc%
  41.      <11>doc at10.95pt%
  42.      <12>doc at12pt%
  43.      <14>doc at14.4pt%
  44.      <17>doc at17.28pt%
  45.      <20>doc at20.74pt%
  46.      <24>doc at23.888pt
  47.      <25>doc at24.88pt%
  48.      <29>doc at28.664pt%
  49.      <34>doc at34.4pt%
  50.      <41>doc at41.28pt%
  51.      }{}
  52.   \let\family=\@gobble
  53.   \let\series=\@gobble
  54.   \let\shape=\@gobble
  55. \else
  56.   \fontencoding{OT1}\let\fontencoding=\@gobble
  57.   \DeclareFontShape{OT1}{doc}{m}{n}{<-> fixed * doc}{}
  58. \fi
  59.   \fontfamily{doc}\let\fontfamily=\@gobble
  60.   \fontseries{m}\let\fontseries=\@gobble
  61.   \fontshape{n}\let\fontshape=\@gobble
  62.   \global\let\mathversion\@gobble
  63.   \global\let\getanddefine@fonts\@gobbletwo
  64. \fi
  65.  
  66. \font\docfont=doc
  67.  
  68. \count@=16
  69. \loop
  70.  \ifnum\count@ >0
  71.   \advance\count@ by-1
  72.   \global\textfont\count@=\docfont
  73.   \global\scriptfont\count@=\docfont
  74.   \global\scriptscriptfont\count@=\docfont
  75.  \repeat
  76.  
  77. \baselineskip 12pt
  78. \oddsidemargin 0pt \evensidemargin 0pt
  79. \def\TeX{TeX}
  80. \def\LaTeX{LaTeX}
  81. \def\SliTeX{SliTeX}
  82. \def\BibTeX{BibTeX}
  83.  
  84.  
  85. \mathcode`\*="612A
  86. \mathcode`\-="612D
  87. \mathcode`\\="015C
  88. \mathcode`\/="612F
  89. \mathcode`\.="612E
  90. \mathcode`\,="612C
  91. %\mathcode`\{="417B
  92. \mathcode`\|="417C
  93. %\mathcode`\}="417D
  94. \mathcode`\'="0127
  95. \mathcode`\<="013C
  96. \mathcode`\>="013E
  97.  
  98. \def\alpha{{\tt alpha}}
  99. \def\beta{{\tt beta}}
  100. \def\gamma{{\tt gamma}}
  101. \def\delta{{\tt delta}}
  102. \def\epsilon{{\tt epsilon}}
  103. \def\zeta{{\tt zeta}}
  104. \def\eta{{\tt eta}}
  105. \def\theta{{\tt theta}}
  106. \def\iota{{\tt iota}}
  107. \def\kappa{{\tt kappa}}
  108. \def\lambda{{\tt lambda}}
  109. \def\mu{{\tt mu}}
  110. \def\nu{{\tt nu}}
  111. \def\xi{{\tt xi}}
  112. \def\pi{{\tt pi}}
  113. \def\rho{{\tt rho}}
  114. \def\sigma{{\tt sigma}}
  115. \def\tau{{\tt tau}}
  116. \def\upsilon{{\tt upsilon}}
  117. \def\phi{{\tt phi}}
  118. \def\chi{{\tt chi}}
  119. \def\psi{{\tt psi}}
  120. \def\omega{{\tt omega}}
  121. \def\varepsilon{{\tt varepsilon}}
  122. \def\vartheta{{\tt vartheta}}
  123. \def\varpi{{\tt varpi}}
  124. \def\varrho{{\tt varrho}}
  125. \def\varsigma{{\tt varsigma}}
  126. \def\varphi{{\tt varphi}}
  127. \def\Gamma{{\tt Gamma}}
  128. \def\Delta{{\tt Delta}}
  129. \def\Theta{{\tt Theta}}
  130. \def\Lambda{{\tt Lambda}}
  131. \def\Xi{{\tt Xi}}
  132. \def\Pi{{\tt Pi}}
  133. \def\Sigma{{\tt Sigma}}
  134. \def\Upsilon{{\tt Upsilon}}
  135. \def\Phi{{\tt Phi}}
  136. \def\Psi{{\tt Psi}}
  137. \def\Omega{{\tt Omega}}
  138. \def\aleph{{\tt aleph}}
  139. \def\ell{{\tt l}}
  140. \def\Re{{\tt re}}
  141. \def\Im{{\tt Im}}
  142.  
  143. \mathchardef\times="2178
  144.  
  145. \mathchardef\lbrace="417B %\let\{=\lbrace
  146. \mathchardef\rbrace="417D %\let\}=\rbrace
  147. \mathchardef\langle="413C
  148. \mathchardef\rangle="413E
  149. \mathchardef\ldotp="612E % ldot as a punctuation mark
  150. \mathchardef\cdotp="622E % cdot as a punctuation mark
  151. \mathchardef\colon="603A % colon as a punctuation mark
  152.  
  153. \def\rightarrow{{\tt ->}}
  154. \def\leftarrow{{\tt <-}}
  155. \def\Longleftrightarrow{{\tt <=>}}
  156. \let\Longrightarrow\rightarrow
  157. \let\Longleftarrow\leftarrow
  158. \def\gg{{\tt >>}}
  159. \def\ll{{\tt <<}}
  160. \def\leq{{\tt <=}} \let\le=\leq
  161. \def\geq{{\tt >=}} \let\ge=\geq
  162. \def\equiv{{\tt ==}}
  163. \def\lnot{{\tt not }}
  164.  
  165. \def\frac#1#2{((#1)/(#2))}
  166.  
  167. \def\"#1{\ifx #1aae\else
  168.          \ifx #1ooe\else
  169.          \ifx #1uue\else
  170.          \ifx #1AAe\else
  171.          \ifx #1OOe\else
  172.          \ifx #1UUe\fi\fi\fi\fi\fi\fi}
  173.  
  174. \def\ss{ss}
  175.  
  176. \let\left\empty
  177. \let\right\empty
  178. \def\sum{\mathop{\hbox{\rm sum }}\limits}
  179. \def\prod{\mathop{\hbox{\rm prod }}\limits}
  180. \def\log{\mathop{\hbox{\rm log }}}
  181. \def\exp{\mathop{\hbox{\rm exp }}}
  182.  
  183. \let\bullet=*
  184.  
  185. \def\to{{\tt ->}}
  186. \def\circ{{\tt\ o }}
  187. \def\mid{{\tt |}}
  188. \def\parallel{{\tt ||}}
  189.  
  190. \advance\jot by 5pt
  191. \advance\skip\footins by\baselineskip
  192.  
  193. % move footnote rule 6pt higher
  194. \def\footnoterule{\kern-9\p@
  195.   \hrule \@width 2in\kern 8.6\p@} % the \hrule is .4pt high
  196.  
  197.  
  198. \renewcommand{\arraystretch}{2.0}
  199.  
  200. \let\xpt\relax
  201. \let\xipt\relax
  202. \let\xiipt\relax
  203.  
  204. \endinput
  205.